home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 March / Ahoy_Magazine_85-03_1985_Double_L.d64 / rupert #1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  456b  |  15 lines
  1. 0 rem << rr15-1 >>
  2. 5 rem       >>> filename = w  <<<
  3. 6 rem modified wedge and initialization
  4. 9 rem --- normal wedge ---
  5. 10 ifa=0 then a=1:load"dos 5.1",8,1
  6. 20 ifa=1 then sys12*4096+12*256
  7. 30 rem --- initialization ---
  8. 40 poke53280,11:poke53281,12               :rem border and background colors
  9. 50 print chr$(151):rem  gray1 letters
  10. 60 poke 650,128   :rem repeating keys
  11. 100 rem - set up mx-80 printer -
  12. 110 open 222,4
  13. 120 print#222,chr$(27)"q"chr$(40):      close 222  :rem  40 characters per line
  14. 200 new
  15.